LEX 'PEEKUTIL'
  ID #5C
  MSG 0
  POLL 0
ARGERR EQU #0BF19
ARGCK EQU #1C5A5
RNDAHX EQU #136CB
HEXASC EQU #17148
STOD0 EQU #1C587
HDFLT EQU #1B31B
STRHDR EQU #0F09A
PKMID2 EQU #1C563
PKMID EQU #1C537
EXD0 EQU #06828
REV$ EQU #1B38E
EXPR EQU #0F23C
RCLD0 EQU #06832
FNRTN1 EQU #0F216
  ENTRY ADP1
  CHAR #F
  ENTRY ADP2
  CHAR #F
  ENTRY PK1
  CHAR #F
  ENTRY PK2
  CHAR #F
  ENTRY REV
  CHAR #F
  ENTRY RPK
  CHAR #F
  ENTRY TEXT
  CHAR #F
  KEY 'ADPEEK$'
  TOKEN 1
  KEY 'ADPEEK'
  TOKEN 2
  KEY 'PEEK$'
  TOKEN 3
  KEY 'PEEK'
  TOKEN 4
  KEY 'REV$'
  TOKEN 5
  KEY 'RPEEK$'
  TOKEN 6
  KEY 'TEXT$'
  TOKEN 7
  ENDTXT
sto GOVLNG STOD0
rnd GOVLNG RNDAHX
str GOVLNG STRHDR
P2SD0X GOSUB sto
P2HEX GOSUB rnd
  GONC ERROR
  D1=D1+ 16
  R0=A
POPARG C=DAT1 1
  C=C+1 P
  GOC STRING
  GOSUB rnd
  GONC ERROR
  D1=D1+ 16
EX1 C=R0
  RTNSC
STRING GOSBVL ARGCK
  A=B A
  GOC EX1
SUBPOP GOSUB P2SD0X
  D=C A
  C=C+C A
  GOC ERROR
  R0=A
  RTN
ERROR GOVLNG ARGERR
FIVE R0=A
  ACEX A
  C=0 A
  LCHEX 5
  ?C<A A
  GOYES ERROR
  C=A A
  P=C 0
  P=P-1
  GOC ERROR
  A=R0
  D0=A
  RTNCC
  NIBHEX 8C22
RPK GOSUB SUBPOP
  GOSUB str
  A=R0
  D0=A
LOOP D=D-1 A
  GOC EX2
  C=0 S
  A=DAT0 1
  GOSBVL HEXASC
  DAT1=A B
  D1=D1+ 2
  D0=D0+ 1
  GOTO LOOP
EX2 C=R1
  D1=C
  P= 0
  GOVLNG EXD0
  NIBHEX 88C23
ADP1 ST=0 0
  GOTO COMM1
  NIBHEX 88C23
ADP2 ST=1 0
COMM1 P=C 15
  ?P= 2
  GOYES ARG2
  GOSUB sto
  GOSUB rnd
  D1=D1+ 16
  R1=A
  GOSUB P2HEX
  GOC CONT
ARG2 A=0 A
  R1=A
  GOSUB P2SD0X
CONT GOSUB FIVE
  C=0 A
  C=DAT0 WP
  B=C A
  B=B+B WP
  GONC POS
  C=-C WP
  C=-C A
POS A=A+C A
  C=R1
  A=A+C A
  ?ST=1 0
  GOYES NUM1
  P= 0
  R0=A
  C=0 A
  LCHEX A
  GOSUB str
  P= 15
  LCHEX 4
  P= 0
  A=R0
  GOSBVL HEXASC
  DAT1=A 10
  GOVLNG PKMID2
NUM1 GOSBVL RCLD0
  GOSBVL HDFLT
  C=A W
  GOVLNG FNRTN1
  NIBHEX 8C22
PK1 ST=0 0
  GOTO COMM2
  NIBHEX 8C12
PK2 ST=1 0
  P=C 15
  ?P= 1
  GOYES ARG1
COMM2 GOSUB SUBPOP
  ?ST=1 0
  GOYES NUM2+
  GOVLNG PKMID
NUM2+ C=D A
NUM2 GOSUB FIVE
  A=0 A
  A=DAT0 WP
  GONC NUM1
ARG1 GOSUB sto
  P= 0
  GOSUB POPARG
  C=0 A
  C=C+1 A
  GONC NUM2
  NIBHEX 411
REV GOSBVL REV$
  GOVLNG EXPR
  NIBHEX 8C22
TEXT GOSUB SUBPOP
  GOSUB str
  A=R0
  D0=A
  P= 0
  LCHEX 80
  B=C A
  LCHEX 20
LOOP1 D=D-1 A
  GOC EX3
  A=DAT0 B
  ?A>=C B
  GOYES GO
  A=A+B B
GO DAT1=A B
  D1=D1+ 2
  D0=D0+ 2
  GOTO LOOP1
EX3 GOVLNG PKMID2
  END